home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / AmigaTalk / general / ArrayedCollection.st < prev    next >
Encoding:
Text File  |  2000-02-16  |  1.7 KB  |  72 lines
  1. Class ArrayedCollection :SequenceableCollection
  2. ! current !
  3. [
  4.     = anArray         ! i !
  5.         (self size ~= anArray size) 
  6.             ifTrue: [^ false]. i <- 0.
  7.                        self do: [:x | (x ~= (anArray at: (i <- i + 1)))
  8.                                   ifTrue: [^ false]].
  9.         ^ true
  10. |
  11.     at: key ifAbsent: exceptionBlock
  12.       ((key <= 0) or: [key > self size])
  13.          ifTrue: [^ exceptionBlock value].
  14.  
  15.       ^ self at: key
  16. |
  17.     coerce: aCollection      ! temp !
  18.       temp <- self class new: aCollection size.
  19.       temp replaceFrom: 1 to: aCollection size with: aCollection.
  20.       ^ temp
  21. |
  22.     copyFrom: start to: stop       ! size temp !
  23.       size <- stop - start + 1.
  24.       temp <- self class new: size.
  25.       temp replaceFrom: 1 to: size with: self startingAt: start.
  26.       ^ temp
  27. |
  28.     currentKey
  29.       ^ current
  30. | 
  31.     deepCopy ! newobj !
  32.       newobj <- self class new: self size.
  33.       (1 to: self size) do:
  34.          [:i | newobj at: i
  35.             put: (self at: i) copy ].
  36.  
  37.       ^ newobj
  38. |
  39.     do: aBlock
  40.       (1 to: self size) 
  41.           do: [:i | current <- i. 
  42.             aBlock value: (self at: i)]
  43. |
  44.     first
  45.       current <- 1.
  46.       ^ (current <= self size) 
  47.          ifTrue: [ self at: current]
  48. |
  49.     firstKey
  50.       ^ 1
  51. |
  52.     lastKey
  53.       ^ self size
  54. |
  55.     next
  56.       current <- current + 1.
  57.       ^ (current <= self size) 
  58.          ifTrue: [ self at: current]
  59. |
  60.     padTo: length
  61.       ^ (self size < length)
  62.           ifTrue: [ self , (self class new: (length - self size) ) ]
  63.          ifFalse: [ self ]
  64. |
  65.     shallowCopy ! newobj !
  66.       newobj <- self class new: self size.
  67.       (1 to: self size) do:
  68.          [:i | newobj at: i 
  69.                      put: (self at: i) ].
  70.       ^ newobj
  71. ]
  72.